BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Me-Mz/MH Checking & Savings v2.4d.cpt/Checking & Savings Demo2.4/background_4678.txt

Text File | 1988-02-27 | 15KB | 616 lines

-- background: 4678 from stack: in.4
-- bmap block id: 41900
-- flags: 4000
-- background id: 0
-- name: Income Record


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=404 top=288 right=329 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Preview
----- HyperTalk script -----
on mouseUp
  Global IncomeCardID

  put empty into IncomeCardID
  visual effect scroll right
  go to previous card of this background
end mouseUp


-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=438 top=288 right=329 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  Global IncomeCardID

  put empty into IncomeCardID
  visual effect scroll left
  go to next card of this background
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=474 top=288 right=329 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  Global LastID
  if LastID is not empty then
    go to LastID
  else
    go to card "Map"
  end if
end mouseUp



-- part 5 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=159 top=44 right=70 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Date


-- part 6 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=158 top=127 right=154 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 20
-- style flags: 256
-- line height: 26
-- part name: Amount
----- HyperTalk script -----
on closeField
  beep
end closeField


-- part 32 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=158 top=74 right=103 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 20
-- style flags: 0
-- line height: 26
-- part name: Last Name


-- part 33 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=24 top=208 right=222 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub1


-- part 34 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=24 top=221 right=235 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub2


-- part 35 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=24 top=234 right=248 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub3


-- part 36 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=24 top=247 right=261 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub4


-- part 37 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=24 top=260 right=274 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub5


-- part 38 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=160 top=208 right=222 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Amt1


-- part 39 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=160 top=221 right=235 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Amt2


-- part 40 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=160 top=234 right=248 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Amt3


-- part 41 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=160 top=247 right=261 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Amt4


-- part 42 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=160 top=260 right=274 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Amt5


-- part 43 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=345 top=288 right=329 bottom=384
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  global LastField, LastLine
  if LastLine is 0 then put 1 into LastLine
  go to card "Main" of background "Income Record"
  set lockscreen to true

  answer "Sort all cards of this stack according to:" with "Amount" or "Date" or "Name"
  push card

  if it is "Amount" then sort by background field "Amount"
  if it is "Date" then sort by background field "Date"
  if it is "Name" then sort by background field "Last Name" & background field "Date"

  pop card
  set lockscreen to false
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=299 top=288 right=329 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter
----- HyperTalk script -----
on mouseUp
  -- doMenu "Print Card"
  answer "Do these cards need to be sorted before printing?" with "CANCEL" or "No" or "Sort"
  if it is "CANCEL" then exit mouseUp
  if it is "Sort" then click at the loc of background button sort

  answer "How would you like to print?" with "Print Report" or "Actual Cards" or "CANCEL"
  if it is "CANCEL" then pass mouseUp

  if it is "Print Report" then
    doMenu "Page Setup..."
    set Lockscreen to True
    doMenu "Print Report..."
  end if
  if it is "Actual Cards" then
    answer "How would you like to print?" with "This client" or "All Clients" or "CANCEL"
    if it = "Cancel" then pass mouseUp
    if it = "This client" then
      open printing
      print this card
    end if
    if it = "All Clients" then
      push card
      set lockscreen to true
      go to last card of this background
      put the number of this card into LastCard
      go to first card of this background
      put the number of this card into FirstCard
      put LastCard-FirstCard+1 into HowMany
      open printing with dialog
      Print HowMany Cards
      close printing
      pop card
    end if
  end if
  close printing
end mouseUp


-- part 45 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=252 top=288 right=329 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SuperFind: Chris Hostetter
----- HyperTalk script -----
on mouseUp
  global  LastButton, searchstring, LastField
  get the selection
  if it is not empty then put it into SearchString

  put the name of the target into ThisOne
  set hilite of thisOne to true

  -- Super Find
  -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  -- Long Beach, CA  90805, [phone]
  -- This script may be used provided you also these credit lines


  put "Chars" into FindType
  put empty into SearchLimit
  ask "Find Word(s)?   Hold option key for limits." with SearchString
  set hilite of thisOne to false
  if it is empty then
    exit mouseUp
  end if
  put it into SearchString

  if the OptionKey is down then
    if LastField is not empty then
      Answer "Search for information in what field?" with "Cancel" or LastField or "Any Field"
      if it is "Cancel" Then
        exit mouseUp
      end if
      if it is LastField then
        put " in background field " & NumToChar(34) & it & NumToChar(34) into SearchLimit
      else
        put "" into SearchLimit
      end if
    end if
    Answer "Find " & FindType & " '" & Searchstring & "'" with "Begins With" or "Full Word" or "These Chars"
    if it is "Begins with" then put empty into FindType
    if it is "Full Word" then put "Word" into FindType
    if it is "These Chars" then put "Chars" into FindType

  end if


  set loc of message box to 20,-50
  put "Find" && FindType && Quote & SearchString & Quote & SearchLimit into message box
  hide message box
  set loc of message box to 20,300
  do message box
  if the result is "Not Found" then
    beep
    answer FindType && "'" & SearchString & "'  not found.  Search more?" with "No" or "Yes"
    if it is "Yes" then click at the loc of the name of the target
  end if
end mouseUp


-- part 47 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=460 top=69 right=110 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Super Find
----- HyperTalk script -----
on mouseUp
  Global LastID, FIndString

  put background field "Key Field" into SearchString
  put background field "key Field" into FindString
  if SearchString is empty then exit mouseUp

  set loc of message box to 20,-50
  put "Find word" && Quote & SearchString & Quote && "in background field" && Quote & "Key Field" & Quote into message box
  hide message box
  set loc of message box to 20,300

  set lockscreen to true
  go to next card of background "Income Record"
  set cursor to 4
  repeat until background field "Key Field" is FindString
    do message box
  end repeat
  set lockscreen to false

end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=159 top=307 right=329 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DELETE
----- HyperTalk script -----
on mouseUp
  Global Correction, IncomeCardID

  beep
  answer "This card will be erased and all sub accounts will be " & "properly credited." with "OK" or "Cancel"
  if it is "Cancel" then exit mouseUp

  put the ID of this Card into ThisID
  put background field "Amount" into Amount
  put background field "Date" into ShortGivingDate

  set lockscreen to true
  set cursor to 4
  repeat with i = 33 to 37
    put i+5 into Temp
    put background field ID i into SubName
    if SubName is not empty then
      put background field ID Temp into SubAmt

      set numberformat to 0.00
      put 0 - SubAmt into Correction

      go to card SubName of background "Sub Accounts"
      put 0 into i
      repeat forever
        add 1 to i
        get line i of background field "Sub Amount2"
        if it is empty then
          answer "Old activity for this account must have been erased" & ".  Could not find any reference to this date." with OK
          exit repeat
        else
          if word 1 of it is shortGivingDate then
            put word 3 of it into Balance
            add Correction to Balance
            put shortGivingDate & "        $ " & Balance into line i of background field "Sub Amount2"
            if the value of Balance is 0 then
              Delete line i of background field "Sub Amount2"
            end if
            exit repeat
          end if
        end if
      end repeat

      add Correction to background field "Sub Total2"
      go to ThisID
    end if
  end repeat

  add correction to background field "YTD Total"
  put background field "Key Field" into Key
  doMenu "Delete Card"

  put 0 - Amount into Correction
  put 0 into i
  go to card "Main" of background "Income"
  repeat forever
    add 1 to i
    get line i of card field "Totals"
    if it is empty then
      answer "Old activity for this account must have been erased" & ".  Could not find any reference to this date." with OK
      exit repeat
    else
      if word 1 of it is shortGivingDate then
        put word 3 of it into Balance
        add Correction to Balance
        put shortGivingDate & "        $ " & Balance into line i of card field "Totals"
        if the value of Balance is 0 then
          Delete line i of card field "Totals"
        end if
        exit repeat
      end if
    end if
  end repeat

  go to card Key
  add correction to background field "YTD Total"

  go to ThisID
  set lockscreen to false
end mouseUp



-- part 50 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=2 top=3 right=22 bottom=364
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Key Field


-- part 51 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=50 top=9 right=31 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: YTD Total
----- HyperTalk script -----
on closeField
  beep
end closeField


-- part 52 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=24 top=174 right=203 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Memo
----- HyperTalk script -----
on CloseField
  Global Amount, TransName, ThisField

  put empty into ThisField
  put Amount into LastAmount
  set numberformat to 0.00
  get background field "Amount"
  if it is not empty then
    put the value of it into Amount
    add 0 to Amount
    put Amount into background field "Amount"
    put 0 into Total
    repeat with i = 92 to 95
      if background field id i is not empty then add the value of background field id i to Total
    end repeat
    put Amount - Total into background field ID 96
  end if
end CloseField

on mouseLeave
  CloseField
end mouseLeave